home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / FL.LSP < prev    next >
Text File  |  1992-03-14  |  473b  |  19 lines
  1. ;Freeze Multiple Layers
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. ;
  7. (defun C:fl ()
  8. (setq oer *error* *error* err2)
  9. (setq ss (ssget))
  10. (setq counter 0)
  11. (prompt "Freezing layers...")
  12. (while
  13.   (setq e (ssname ss counter))
  14.   (setq fl (cdr (assoc 8 (entget e))))
  15. (progn
  16.   (command "layer" "f" fl ""))
  17.   (setq counter (+ counter 1))
  18.   (princ fl)(princ ", "))
  19.   (princ "\n "))